home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / move2 / move.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-10  |  7.2 KB  |  209 lines
  1. '                                                         '
  2. '     This example was made to show how easy it is to     '
  3. '        move and size controls in VB at runtime.         '
  4. '                                                         '
  5. '                                                         '
  6. ' I put it here so that it isn't such a secret any longer '
  7. '                                                         '
  8. ' PLEASE, if you (all) have other ideas or results (!)    '
  9. ' put them to the VBPJ forum or the MS BASIC forum on     '
  10. ' CompuServe or any other place programmers might look    '
  11. ' for it so that everyone has the the profit of it !      '
  12. '                                                         '
  13. '                                                         '
  14. ' This example was made by:                               '
  15. '     Christian Germelmann                                '
  16. '     Am Glaskopf 26                                      '
  17. '     35039 Marburg/Lahn                                  '
  18. '     Phone +049 6421 45457                               '
  19. '     CompuServe 100520,2644                              '
  20. '                                                         '
  21. ' ENJOY !!!                                               '
  22. '                                                         '
  23.  
  24.  
  25. Option Explicit
  26.  
  27.  
  28. Declare Function FlashWindow% Lib "USER" (ByVal hWnd%, ByVal bInvert%)
  29.  
  30. Declare Function SetWindowText% Lib "USER" (ByVal hWnd%, ByVal lpString$)
  31.  
  32. Declare Function GetWindowLong Lib "USER" (ByVal hWnd%, ByVal nIndex%) As Long
  33. Declare Function SetWindowLong& Lib "USER" (ByVal hWnd%, ByVal nIndex%, ByVal dwNewLong&)
  34.  
  35. Declare Sub ReleaseCapture Lib "USER" ()
  36.  
  37. Declare Function SendMessage& Lib "USER" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  38. Global Const WM_SYSCOMMAND = &H112
  39. Global Const MOUSE_MOVE = &HF012
  40.  
  41. Global Const GWL_STYLE = (-16)
  42. Global Const GWL_EXSTYLE = (-20)
  43.  
  44. ' ************************
  45. ' *    Window Styles     *
  46. ' * |use with GWL_STYLE| *
  47. ' ************************
  48. Global Const WS_OVERLAPPED = &H0&
  49. Global Const WS_POPUP = &H80000000
  50. Global Const WS_CHILD = &H40000000
  51. Global Const WS_MINIMIZE = &H20000000
  52. Global Const WS_MINIMIZEBOX = &H20000
  53. Global Const WS_VISIBLE = &H10000000
  54. Global Const WS_DISABLED = &H8000000
  55. Global Const WS_CLIPSIBLINGS = &H4000000
  56. Global Const WS_CLIPCHILDREN = &H2000000
  57. Global Const WS_MAXIMIZE = &H1000000
  58. Global Const WS_MAXIMIZEBOX = &H10000
  59. Global Const WS_CAPTION = &HC00000
  60. Global Const WS_BORDER = &H800000
  61. Global Const WS_DLGFRAME = &H400000
  62. Global Const WS_VSCROLL = &H200000
  63. Global Const WS_HSCROLL = &H100000
  64. Global Const WS_SYSMENU = &H80000
  65. Global Const WS_THICKFRAME = &H40000
  66. Global Const WS_GROUP = &H20000
  67. Global Const WS_TABSTOP = &H10000
  68.  
  69. Global Const WS_TILED = WS_OVERLAPPED
  70. Global Const WS_ICONIC = WS_MINIMIZE
  71. Global Const WS_SIZEBOX = WS_THICKFRAME
  72.  
  73. ' ************************
  74. ' * Common Window Styles *
  75. ' * |use with GWL_STYLE| *
  76. ' ************************
  77. Global Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
  78. Global Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
  79. Global Const WS_CHILDWINDOW = (WS_CHILD)
  80. Global Const WS_TILEDWINDOW = (WS_OVERLAPPEDWINDOW)
  81.  
  82. ' **************************
  83. ' * Extended Window Styles *
  84. ' * |use with GWL_EXSTYLE| *
  85. ' **************************
  86. Global Const WS_EX_DLGMODALFRAME = &H1&
  87. Global Const WS_EX_NOPARENTNOTIFY = &H4&
  88. Global Const WS_EX_TOPMOST = &H8&
  89. Global Const WS_EX_ACCEPTFILES = &H10&
  90. Global Const WS_EX_TRANSPARENT = &H20&
  91.  
  92. ' ************************
  93. ' *    Dialog Styles     *
  94. ' * |use with GWL_STYLE| *
  95. ' ************************
  96. Global Const DS_ABSALIGN = &H1&
  97. Global Const DS_SYSMODAL = &H2&
  98. Global Const DS_LOCALEDIT = &H20&
  99. Global Const DS_SETFONT = &H40&
  100. Global Const DS_MODALFRAME = &H80&
  101. Global Const DS_NOIDLEMSG = &H100&
  102.  
  103.  
  104. ' *************************
  105. ' * Button Control Styles *
  106. ' * |use with GWL_STYLE|  *
  107. ' *************************
  108. Global Const BS_PUSHBUTTON = &H0&
  109. Global Const BS_DEFPUSHBUTTON = &H1&
  110. Global Const BS_CHECKBOX = &H2&
  111. Global Const BS_AUTOCHECKBOX = &H3&
  112. Global Const BS_RADIOBUTTON = &H4&
  113. Global Const BS_3STATE = &H5&
  114. Global Const BS_AUTO3STATE = &H6&
  115. Global Const BS_GROUPBOX = &H7&
  116. Global Const BS_USERBUTTON = &H8&
  117. Global Const BS_AUTORADIOBUTTON = &H9&
  118. Global Const BS_PUSHBOX = &HA&
  119. Global Const BS_OWNERDRAW = &HB&
  120. Global Const BS_LEFTTEXT = &H20&
  121.  
  122.  
  123. ' ************************
  124. ' *    Listbox Styles    *
  125. ' * |use with GWL_STYLE| *
  126. ' ************************
  127. Global Const LBS_NOTIFY = &H1&
  128. Global Const LBS_SORT = &H2&
  129. Global Const LBS_NOREDRAW = &H4&
  130. Global Const LBS_MULTIPLESEL = &H8&
  131. Global Const LBS_OWNERDRAWFIXED = &H10&
  132. Global Const LBS_OWNERDRAWVARIABLE = &H20&
  133. Global Const LBS_HASSTRINGS = &H40&
  134. Global Const LBS_USETABSTOPS = &H80&
  135. Global Const LBS_NOINTEGRALHEIGHT = &H100&
  136. Global Const LBS_MULTICOLUMN = &H200&
  137. Global Const LBS_WANTKEYBOARDINPUT = &H400&
  138. Global Const LBS_EXTENDEDSEL = &H800&
  139. Global Const LBS_DISABLENOSCROLL = &H1000&
  140. Global Const LBS_STANDARD = (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER)
  141.  
  142. ' **************************
  143. ' *    Combo Box Styles    *
  144. ' *  |use with GWL_STYLE|  *
  145. ' **************************
  146. Global Const CBS_SIMPLE = &H1&
  147. Global Const CBS_DROPDOWN = &H2&
  148. Global Const CBS_DROPDOWNLIST = &H3&
  149. Global Const CBS_OWNERDRAWFIXED = &H10&
  150. Global Const CBS_OWNERDRAWVARIABLE = &H20&
  151. Global Const CBS_AUTOHSCROLL = &H40&
  152. Global Const CBS_OEMCONVERT = &H80&
  153. Global Const CBS_SORT = &H100&
  154. Global Const CBS_HASSTRINGS = &H200&
  155. Global Const CBS_NOINTEGRALHEIGHT = &H400&
  156. Global Const CBS_DISABLENOSCROLL = &H800&
  157.  
  158. ' **************************
  159. ' *    Scroll Box Styles   *
  160. ' *  |use with GWL_STYLE|  *
  161. ' **************************
  162. Global Const SBS_HORZ = &H0&
  163. Global Const SBS_VERT = &H1&
  164. Global Const SBS_TOPALIGN = &H2&
  165. Global Const SBS_LEFTALIGN = &H2&
  166. Global Const SBS_BOTTOMALIGN = &H4&
  167. Global Const SBS_RIGHTALIGN = &H4&
  168. Global Const SBS_SIZEBOXTOPLEFTALIGN = &H2&
  169. Global Const SBS_SIZEBOXBOTTOMRIGHTALIGN = &H4&
  170. Global Const SBS_SIZEBOX = &H8&
  171.  
  172. ' ************************
  173. ' * Edit Control Styles  *
  174. ' * |use with GWL_STYLE| *
  175. ' ************************
  176. Global Const ES_LEFT = &H0&
  177. Global Const ES_CENTER = &H1&
  178. Global Const ES_RIGHT = &H2&
  179. Global Const ES_MULTILINE = &H4&
  180. Global Const ES_UPPERCASE = &H8&
  181. Global Const ES_LOWERCASE = &H10&
  182. Global Const ES_PASSWORD = &H20&
  183. Global Const ES_AUTOVSCROLL = &H40&
  184. Global Const ES_AUTOHSCROLL = &H80&
  185. Global Const ES_NOHIDESEL = &H100&
  186. Global Const ES_OEMCONVERT = &H400&
  187. Global Const ES_READONLY = &H800&
  188. Global Const ES_WANTRETURN = &H1000&
  189.  
  190. ' *************************
  191. ' * Static Control Styles *
  192. ' * |use with GWL_STYLE|  *
  193. ' *************************
  194. Global Const SS_LEFT = &H0&
  195. Global Const SS_CENTER = &H1&
  196. Global Const SS_RIGHT = &H2&
  197. Global Const SS_ICON = &H3&
  198. Global Const SS_BLACKRECT = &H4&
  199. Global Const SS_GRAYRECT = &H5&
  200. Global Const SS_WHITERECT = &H6&
  201. Global Const SS_BLACKFRAME = &H7&
  202. Global Const SS_GRAYFRAME = &H8&
  203. Global Const SS_WHITEFRAME = &H9&
  204. Global Const SS_USERITEM = &HA&
  205. Global Const SS_SIMPLE = &HB&
  206. Global Const SS_LEFTNOWORDWRAP = &HC&
  207. Global Const SS_NOPREFIX = &H80&
  208.  
  209.